A = e21;
B = e24;

sa = [1 2 3 4 5 6 7 8 9 10 11 12];
sb = [1 2 3 4 5 6 7 8 10 9 11 12];

fig = figure(10);
for I = 1:12
    clf;
    hold on; grid on;

    plot(A.Time, A.Temp(:, sa(I)), 'linewidth', 1.5);
    plot(B.Time, B.Temp(:, sb(I)), 'linewidth', 1.5);

    LA = [A.Tlabel{sa(I)}, num2str(1)];
    LB = [B.Tlabel{sb(I)}, num2str(2)];
    legend({LA, LB});

    saveas(fig, [num2str(I), '.png']);
end
